有高手不 帮忙``VB题

产生一个每次运行都不同的10个包含端点的300到500之间的随机整数，并求出这些整数的和与平均值。在(1)和(2)中填入正确的内容
Private Sub form_click()
Dim a(10), i As Integer, s As Integer
Randomize
For i = 1 To 10
a(i) = Int((1))
Print a(i)
s = (2)
Next i
Print
Print "和="; s
Print "平均值="; s / 10
Print
End Sub
哪个高手帮我填出1, 2 空来啊 谢谢/
Private Sub Command1_Click()
Dim bin As String '二进制字串
Dim Dec As Double '十进制数
Dim temp As String '二进制字串每位字符
Dim i As Integer '循环变量
Dim n As Integer '二进制字串长度
bin = InputBox("二进制字串=")
n = Len(bin)
i = 0
Do
temp = Mid(bin, (1), 1) '此行有一空(1)
Dec = Dec + Val(temp) * 2 ^ i
i = i + 1
Loop While (2) '此行有一空(2)
Form1.Print "二进制字串"; bin; "转换为十进制数"; Dec
End Sub
高手帮忙啊 ///填2个空

有高手不 帮忙``VB题 高手帮忙做两道简单VB题 请VB高手帮忙 填空题 一道VB编程题~~请高手帮忙 VB基础题，急！！！高手来帮忙！！！ vb的一道题，高手帮忙1 vb高手帮忙 求VB高手帮忙! VB 高手帮忙 VB 高手来帮忙